From: Glenn Morris Date: Thu, 19 Mar 2009 06:19:24 +0000 (+0000) Subject: (sc-version): Doc fix. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1163 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=7a1231bfc6b297e8e392df0684f95d0afaa5a366;p=emacs.git (sc-version): Doc fix. --- diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index fc0f591c7e1..0f2ccedadc0 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1968,10 +1968,12 @@ cited." (insert (sc-mail-field "sc-citation")) (error "Line is already cited")))) +;; The argument logic here is crazy. (defun sc-version (message) - "Echo the current version of Supercite in the minibuffer. + "Return the current Supercite version. If MESSAGE is non-nil (interactively, with no prefix argument), -inserts the version string in the current buffer instead." +echoes the version in the minibuffer. Otherwise, inserts the +version at point." (interactive (list (not current-prefix-arg))) (let ((verstr (format "Using Supercite.el %s" emacs-version))) (if message